home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 96 / 096.d81 / bytes 96 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  38 lines
  1. 5 poke53281,0:print"[147]"chr$(14):rem       or chr$(142) if upper case/graphics
  2. 7 dv=peek(186):ifdv<8thendv=8
  3. 10 gosub60000
  4. 20 rem  program follows, starting with
  5. 21 rem  loading of ml routines, fonts,
  6. 22 rem  sprite data, etc.  don't clear
  7. 23 rem  the screen until loading is done
  8. 100 poke214,7:print:print"  [208]ress [211][212][207][208] and [204][201][211][212] to see the code.
  9. 110 [153]"  (NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL) to return to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL).
  10. 120 geta$:ifa$<>chr$(13)then120
  11. 130 goto40000
  12. 9999 goto9999
  13. 10000 open15,8,15,"s0:bytes 96":close15:save"bytes 96",8:end
  14. 39997 :
  15. 39998 :rem  return to loadstar
  16. 39999 :
  17. 40000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  18. 40010 print"[147]":poke646,peek(53281):poke53272,21:poke648,4
  19. 40020 poke43,1:poke44,8:poke2048,0
  20. 40030 ifer<>63thenprint"[159]":end
  21. 40040 print"[147]load"chr$(34)"hello connect"chr$(34)",8"
  22. 40050 print"run"
  23. 40060 poke631,13:poke632,13:poke198,2:end
  24. 59997 :
  25. 59998 :rem  copyright box for loadstar
  26. 59999 :
  27. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  28. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
  29. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  30. 60030 z$(0)="[208]rogram [206]ame":z$(1)="by [193]uthor [206]ame"
  31. 60040 z$(2)="[214]1.0 ([195]) 1992 by [211]oftdisk, [201]nc."+chr$(13)
  32. 60050 z$(3)="[212]his program is the copyrighted work
  33. 60060 z$(4)[178]"of (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$.  right$t is not"
  34. 60070 z$(5)[178]"shareware or in the public domain."
  35. 60080 z$(6)[178]"(NULL)eport illegal distribution of":z$(7)[178]"this program by calling"
  36. 60090 z$(8)[178]"1-800-831-2694 or 1-318-221-8718.":[151]214,12:[153]
  37. 60100 [129]i[178]0[164]8:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  38.